<!--#include file="../config.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="meta.html"-->
<%
Dim rs, id, lname,password,usex,mobile,wechat,job,email,utype,ubz, bool, dictForm

Dao.Reset() '清空查询条件

if Request.ServerVariables("REQUEST_METHOD")="POST" then '提交方式：POST

	lname = Trim(Request("username"))
	password = md5(Trim(Request("password")))
	usex = Trim(Request.Form("sex"))
	mobile = Trim(Request.Form("mobile"))
	wechat = Trim(Request.Form("wechat"))
	job = Trim(Request.Form("job"))
	email = Trim(Request.Form("email"))
	utype = Trim(Request.Form("utype"))
	ubz = Trim(Request.Form("ubz"))
	
	Set dictForm = Server.CreateObject("Scripting.Dictionary")
	dictForm("lname") = lname
	dictForm("mobile") = mobile
	dictForm("usex") = usex
	dictForm("utype") = utype
	dictForm("wechat") = wechat
	dictForm("job") = job
	dictForm("email") = email
	dictForm("password") = password
	dictForm("ubz") = ubz

	'echo dictForm
	'bool = Dao.T("kuser").save( Request ) '直接提交表单
	bool = Dao.T("kuser").save( dictForm ) '字典数据
	echo password
	If bool Then
		Response.Write "<script>window.close();</script>"
	End If

end if

Dao.Reset() '清空查询条件

%>